home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Keyboard Logitech 1.xpl < prev    next >
Text File  |  2001-11-27  |  1KB  |  42 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Keyboard"
  5. "NAME"="Logitech Cordless Keyboard"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Control Panel Extensions for Cordless Keyboard"
  8. "DESCRIPTION 1"="If you have a cordless Logitech keyboard, then you will notice some extra options in the Keyboard applet in Control Panel. If you want to disable these extra options, clear the checkmark on the left."
  9. "VERSION"="1.01"
  10. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  12. "CONTACTURL"="http://www.xteq.com/"
  13.  
  14. sP="HKLM\Software\Logitech"
  15. sQ="HKLM\Software\Microsoft\Windows\CurrentVersion\Controls Folder\Keyboard\shellex\PropertySheetHandlers\Logitech\@"
  16.  
  17. SUB Plugin_Initialize
  18.  f=RegPathExists(sP)
  19.  if f=false then
  20.   Call Disable()
  21.  else
  22.   g=RegReadValue(sQ)
  23.   if g="{D60F93E2-8A7B-11D0-8B13-008048808AB0}" then
  24.    Call SetUIElement(1,true)
  25.   end if
  26.  end if
  27. END SUB
  28.  
  29. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  b=GetUIElement(1)
  31.  if b=true then
  32.   Call RegWriteValue(sQ,"{D60F93E2-8A7B-11D0-8B13-008048808AB0}",1)
  33.  else
  34.   t=RegValueExists(sQ)
  35.   If t=true then
  36.    Call RegDeleteValue(sQ)
  37.   end if
  38.  end if
  39. END SUB
  40.  
  41. SUB Plugin_Terminate
  42. END SUB